home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111a.d64 / font convert (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  808b  |  19 lines
  1. 1 DIM A(15):S=12288:POKE53272,23
  2. 2 PRINT"[147][154] - [198]ONT [195]ONVERT -        BY [205]ARC [212]EUFEL ":POKE53280,0:POKE53281,0
  3. 3 POKE19,1:INPUT"LOAD NAME  ";A$:PRINT:INPUT"SAVE NAME  ";B$:POKE19,0:PRINT
  4. 4 PRINT"LOADING FONT ...":SYS57821A$,8,1:POKE780,0:SYS65493:POKE53272,28
  5. 5 PRINT"[147][150]":FORI=0TO255:POKE1024+I,I:NEXT:PRINT"B[194]Y[217] M[205]A[193]R[210]C[195] T[212]."
  6. 6 PRINT"A[193]B[194]C[195]D[196]E[197]F[198]G[199]H[200]I[201]J[202]K[203]L[204]M[205]N[206]O[207]P[208]Q[209]R[210]S[211]T[212]U[213]V[214]W[215]X[216]Y[217]Z[218]"
  7. 7 PRINT"0[176]1[177]2[178]3[184]4[180]5[181]6[182]7[183]8[185]9[185]":GOSUB12
  8. 8 PRINT"[147][154] - [201]NSERT [196]ISK - ":POKE53272,23:GOSUB 17
  9. 9 PRINT"SAVING FONT ...":OPEN 1,8,2,B$+",P,W":ZZ=INT(12288/256)
  10. 10 XX=12288-256*ZZ:PRINT#1,CHR$(XX);CHR$(ZZ):FORI=12288TO14336
  11. 11 PRINT#1,CHR$(PEEK(I));:NEXTI:CLOSE1:GOSUB15:GOTO2
  12. 12 A=512:FORI=STOS+A:B=PEEK(I):C=A+I:D=INT(B/16):E=B-D*16:F=0:G=0:FORJ=0TO3
  13. 13 H=INT(D/2):K=D-H*2:D=H:H=INT(E/2):L=E-H*2:E=H:F=F+3*K*2^(J*2):G=G+3*L*2^(J*2)
  14. 14 NEXT:POKEI,F:POKEC,G:NEXT:RETURN
  15. 15 OPEN 1,8,15:INPUT#1,AA,BB$,CC,DD
  16. 16 PRINT""AA;BB$;CC;DD:CLOSE1
  17. 17 GETR$:IFR$=""THEN17
  18. 18 RETURN
  19.